home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / boostrs.arc / CURSOR.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1980-01-01  |  477 b   |  28 lines
  1. { -------------------
  2.   CURSOROFF procedure
  3.   ------------------- }
  4. Procedure CursorOff;
  5. begin
  6.    with regs do
  7.    begin
  8.       cx := $2000;
  9.       ax := $0100;
  10.       intr($10,regs);
  11.    end;
  12. end;
  13.  
  14. { -------------------
  15.   CURSORON procedure
  16.   ------------------- }
  17. Procedure CursorOn;
  18. begin
  19.    with regs do
  20.    begin
  21.       if VideoStatus = 7 then
  22.          cx := $0C0D
  23.       else
  24.          cx := $0607;
  25.       ax := $0100;
  26.       intr($10,regs);
  27.    end;
  28. end;